home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / psutils / src / fixfmps.pl < prev    next >
Text File  |  1996-02-21  |  535b  |  22 lines
  1. @PERL@
  2. # fixfmps: get conforming PostScript out of FrameMaker version 2 file
  3. # move all FMDEFINEFONTs to start of pages
  4. #
  5. # Copyright (C) Angus J. C. Duggan 1991-1995
  6. # See file LICENSE for details.
  7.  
  8. %fonts=();
  9.  
  10. while (<>) {
  11.    if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
  12.       $fonts{$1} = $_;
  13.    } elsif (/^[0-9.]+ [0-9.]+ [0-9]+ FMBEGINPAGE$/) {
  14.       print $_, join('',values(%fonts));
  15.    } elsif (m%(.*/PageSize \[paperwidth paperheight\]put )setpagedevice(.*)%) {
  16.       print "$1pop$2\n";
  17.    } else {
  18.       print $_;
  19.    }
  20. }
  21. @END@
  22.